@a = ("lala:1",
      "lala:5",
      "lala:4",
      "lala:2"
      );


sub test
{
    ($c)=$a =~ /lala:(.*)/;
    ($d)=$b=~/lala:(.*)/;
#    print "$d ------ $c\n";
    $d<=>$c;
}
print "$_\n" foreach sort test @a;
